Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

O+1O
Lbl 1
10Ran#D
87-10DT
D>6Goto 1
Lbl 9
ViewWindow 0,126,0,-10,52,0
Text 1,4,"ESSAI N"
Text 1,37,Q
Orange Text 1,50,"CHATTE N"
Orange Text 1,90,O
F-Line 84,1,89,1
F-Line 89,1,90,6
F-Line 90,6,99,5
F-Line 99,5,100,1
F-Line 100,6,100,10
F-Line 101,5,104,5
PlotOn 105,6
F-Line 106,7,106,9
F-Line 104,11,101,11
PlotOn 105,10
F-Line 97,5,95,5
F-Line 96,4,97,4
PlotOn 97,3
PlotOn 103,9
Green F-Line 103,7,105,6
F-Line T-2,0,T-1,6
F-Line T-1,6,T-4,10
F-Line T-4,5,T-6,1
F-Line T-4,10,T-4,14
F-Line T-5,5,T-3,15
F-Line T-3,15,T-1,17
F-Line T-1,17,T-1,19
F-Line T-1,19,T-3,21
F-Line T-3,21,T-5,21
F-Line T-5,21,T-6,17
F-Line T-6,17,T-5,15
F-Line T-3,14,T,10
F-Line T-3,9,T+2,11
ClrText
"FORCE DE LA GICLEE"?B
Plot T+2,11
Plot T+2B,15:Line
Plot T+3B,17.5:Line
Plot T+4B,17.5:Line
Plot T+4.5B,15:Line
Plot T+5B,10:Line
Plot T+5.5B,6:Line
Plot T+6B,1:Line
Plot T+6.1B,0:Line
If T+5.5B>89 And T+5.5B<91:Then Text 15,10,"OH OUI!!!MET M EN ENCORE!!"
Goto 3
Else Goto B
Lbl B:If T+5.5B90.5 And T+5.5B100:Then Text 15,10,"OH!!C EST FROID SUR MON DOS!!"
Q+1Q
Goto 9
Else Goto C
Lbl C:If T+5B95 And T+5B106:Then Text 15,10,"OH NON!!! MON CUIR CHEVELU!!"
Q+1Q
Goto 9
Else Int 4Ran#+1G
G=1Text 15,30,"IMPUISSANT!!!!"
G=2Text 10,6,"BON JE VAIS"
G=2Text 17,12," ME FINIR TOUTE SEULE."
G=3Text 15,15,"J EN AI MARRE D ATTENDRE."
G=4Text 15,15,"OH NON!!ENCORE!!"
Q+1Q
Goto 9
Lbl 3:O=AProg "RESULTAT"